home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / pl0 / pl0scann.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  598 b   |  38 lines
  1.  
  2. DEFINITION MODULE PL0Scanner;
  3.  
  4. FROM FileSystem IMPORT File;
  5.  
  6.  
  7. TYPE 
  8.   Symbol = (null, odd, times, div, plus, minus, eql, neq, lss, leq,
  9.   gtr, geq, comma, rparen, then, do, lparen, becomes, number,
  10.   ident, semicolon, end, call, if, while, begin, read, write, const,
  11.   var, procedure, period, eof);
  12.   
  13.  
  14. VAR
  15.   sym : Symbol;
  16.   id : CARDINAL;
  17.   num : CARDINAL;
  18.   source : File;
  19.   
  20.  
  21. PROCEDURE Diff(u,v : CARDINAL) : INTEGER;
  22.  
  23. PROCEDURE KeepId;
  24.  
  25. PROCEDURE Mark(n : CARDINAL);
  26.  
  27. PROCEDURE GetSym;
  28.  
  29. PROCEDURE InitScanner;
  30.  
  31. PROCEDURE CloseScanner;
  32.  
  33.  
  34. END PL0Scanner.
  35.  
  36.  
  37.  
  38.